VERSION 5.00
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form FPersonaOpt 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Datos de persona"
   ClientHeight    =   2535
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5055
   Icon            =   "FPersonaOpt.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2535
   ScaleWidth      =   5055
   StartUpPosition =   1  'CenterOwner
   Begin VB.Frame FraDatGen 
      Caption         =   "Datos"
      Height          =   1695
      Left            =   0
      TabIndex        =   4
      Top             =   0
      Width           =   5055
      Begin VB.TextBox txtci 
         Height          =   270
         Left            =   1080
         MaxLength       =   15
         TabIndex        =   0
         Top             =   360
         Width           =   1695
      End
      Begin VB.TextBox txtnombre 
         Height          =   615
         Left            =   1080
         MaxLength       =   100
         MultiLine       =   -1  'True
         ScrollBars      =   2  'Vertical
         TabIndex        =   1
         Top             =   840
         Width           =   3855
      End
      Begin VB.Label Label2 
         Alignment       =   1  'Right Justify
         Caption         =   "C.I.:"
         Height          =   255
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   735
      End
      Begin VB.Label Label3 
         Alignment       =   1  'Right Justify
         Caption         =   "Nombre:"
         Height          =   255
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   735
      End
   End
   Begin MSForms.CommandButton CmdOk 
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Top             =   1920
      Width           =   1455
      Caption         =   " Aceptar"
      PicturePosition =   327683
      Size            =   "2566;661"
      Picture         =   "FPersonaOpt.frx":058A
      Accelerator     =   65
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      ParagraphAlign  =   3
   End
   Begin MSForms.CommandButton CmdCan 
      Height          =   375
      Left            =   2880
      TabIndex        =   3
      Top             =   1920
      Width           =   1455
      Caption         =   " Cancelar"
      PicturePosition =   327683
      Size            =   "2566;661"
      Picture         =   "FPersonaOpt.frx":06E4
      Accelerator     =   67
      FontHeight      =   165
      FontCharSet     =   0
      FontPitchAndFamily=   2
      ParagraphAlign  =   3
   End
End
Attribute VB_Name = "FPersonaOpt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim inscrito As ClsInscrito

Public Sub cargar(codig As String)
    txtci.Text = ""
    
    inscrito.consultaDatos codig
    txtci.Text = inscrito.ci
    txtnombre.Text = inscrito.nombre
End Sub

Private Sub CmdCan_Click()
    Unload Me
End Sub

Private Sub CmdOk_Click()
    If inscrito.codigo = "" Then
    Else
        inscrito.Modificar inscrito.codigo, txtci.Text, txtnombre.Text
    End If
    Call CmdCan_Click
End Sub

Private Sub Form_Load()
    Set inscrito = New ClsInscrito
End Sub

Private Sub txtci_KeyPress(KeyAscii As Integer)
    KeyAscii = NroEntero(KeyAscii)
End Sub

Private Sub txtnombre_KeyPress(KeyAscii As Integer)
    KeyAscii = mayusculas(KeyAscii)
End Sub
